home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01a.txt / 000040_icon-group-sender _Tue May 30 17:06:44 2000.msg < prev    next >
Internet Message Format  |  2002-01-03  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id RAA28345
  4.     for icon-group-addresses; Tue, 30 May 2000 17:06:32 -0700 (MST)
  5. Message-Id: <200005310006.RAA28345@baskerville.CS.Arizona.EDU>
  6. Date: Tue, 30 May 2000 13:40:37 -0700
  7. From: Steve Wampler <swampler@noao.edu>
  8. X-Accept-Language: en
  9. To: icon-group <icon-group@optima.CS.Arizona.EDU>
  10. Subject: Re: CODE() and  @/2
  11. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  12. Status: RO
  13. Content-Length: 1611
  14.  
  15. "F.G. van DORP" wrote:
  16.  
  17. > I tried
  18. > 
  19. >        nextLabel := create "L" || (1 to 10) || ("foo" @ &source)
  20.  
  21. What did you intend the above to do?  I'm confused as to why you
  22. have the ("foo" @ &source) there.  If all you want are labels Lxfoo,
  23. where x is replaced by 1 to 10, you should use
  24.  
  25.         nextLabel := create "L" || (1 to 10) || "foo"
  26.  
  27. >        write(@nextlabel)
  28.  
  29. This must have been write(@nextLabel), right?
  30.  
  31. >         ....
  32. > 
  33. > and to my very surprise it did act as a regular RETURN (no
  34. > ASSEMBLER jargon necessary after all), writing
  35. > 
  36. >       L1foo
  37. >       ....
  38.  
  39. I don't see how the co-expression you've given would produce the above,
  40. are you sure that isn't the output from some other try?
  41.  
  42. In fact, I would expect to see "foo" printed by itself first, followed
  43. by a "string expected, offending value: &null" error if you activate
  44. nextLabel a second time without passing a value to it...
  45.  
  46. Try the following sample program:
  47.  
  48.     procedure main()
  49.         nextLabel := create "L" || (1 to 10) || "foo"
  50.  
  51.         write("Label 1 is ", @nextLabel)
  52.         write("Label 2 is ", @nextLabel)
  53.         write("Label 3 is ", @nextLabel)
  54.         write("Label 4 is ", @nextLabel)
  55.         write("Label 5 is ", @nextLabel)
  56.  
  57.         every write("Label ",6 to 10," is ",@nextLabel)
  58.     end
  59.  
  60. You should see the output:
  61.  
  62.     Label 1 is L1foo
  63.     Label 2 is L2foo
  64.     Label 3 is L3foo
  65.     Label 4 is L4foo
  66.     Label 5 is L5foo
  67.     Label 6 is L6foo
  68.     Label 7 is L7foo
  69.     Label 8 is L8foo
  70.     Label 9 is L9foo
  71.     Label 10 is L10foo
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78. --
  79. Steve Wampler-  SOLIS Project, National Solar Observatory
  80. swampler@noao.edu
  81.